Best of www.BestZips.com (Collector's Edition)/Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO/tutorial/adatu311.zip/DAT2TXT.ADA

Text File | 1996-01-10 | 2KB | 52 lines

-- DAT2TXT.ADA   Ver. 3.11   10-JAN-1996   Copyright 1988-1996 John J. Herro
--
-- SOFTWARE INNOVATIONS TECHNOLOGY          http://members.aol.com/AdaTutor
-- 1083 MANDARIN DR NE                      ftp://members.aol.com/AdaTutor
-- PALM BAY FL 32905-4706
--                                          [e-mail]
-- [phone]                           [e-mail]
--
-- Run this program on a PC before installing ADA-TUTR on another computer.
-- It translates ADA_TUTR.DAT to TUTOR.TXT, a text file that can be easily
-- transferred to other computers.  Then compile and run TXT2DAT.ADA on the
-- other machine to create ADA_TUTR.DAT from TUTOR.TXT.
--
with Direct_IO, Text_IO;
procedure DAT2TXT is
   subtype Block_Subtype is String(1 .. 64);
   package Random_IO is new Direct_IO(Block_Subtype);
   Data_File  : Random_IO.File_Type;                         -- The input file.
   Text_File  : Text_IO.File_Type;                          -- The output file.
   Block      : Block_Subtype;             -- A block of 64 bytes being copied.
   OK         : Boolean := True;     -- True when both files open successfully.
   Legal_Note : constant String := " Copyright 1988-96 John J. Herro ";
                       -- Legal_Note isn't used by the program, but it causes
                       -- most compilers to place this string in the .EXE file.
begin
   begin
      Random_IO.Open(Data_File, Random_IO.In_File, Name => "ADA_TUTR.DAT");
   exception
      when Random_IO.Name_Error =>
         Text_IO.Put_Line(
              "I'm sorry.  The file ADA_TUTR.DAT seems to be missing.");
         OK := False;
   end;
   begin
      Text_IO.Create(Text_File, Name => "TUTOR.TXT");
   exception
      when others =>
         Text_IO.Put_Line("I'm sorry.  I can't seem to create TUTOR.TXT.");
         Text_IO.Put_Line("Perhaps that file already exists?");
         OK := False;
   end;
   if OK then
      while not Random_IO.End_Of_File(Data_File) loop
         Random_IO.Read(Data_File, Item => Block);
         Text_IO.Put_Line(File => Text_File, Item => Block);
      end loop;
      Random_IO.Close(Data_File);
      Text_IO.Close(Text_File);
      Text_IO.Put_Line("TUTOR.TXT created.");
   end if;
end DAT2TXT;